#Figure 4

load("Figure 4.Rdata")
levels(res_words$variable)                        
levels(res_words$variable)<-c("Shame", "Resource", "Coordinate")

p<-ggplot(res_words, aes(x=value, fill=variable))+
  geom_density(bw=3)+
  scale_fill_viridis_d(guide=F)+
  xlab("Number of Words")+
  ylab("Density")+
  facet_wrap(~variable, nrow=3 )+
  theme_bw(base_size=15)

p

pdf("Figure4.pdf")
p
dev.off()

rm(res_words, p)
